home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / MAKETC3.CM0 < prev    next >
Text File  |  1991-12-28  |  8KB  |  425 lines
  1. OpenBox 1  0 0 79 24 "- Scripta Generator for Wildcat! 3.00 with Tomcat! 3.00 "
  2. %generate := TRUE
  3. %getresp := FALSE
  4. Gosub GetInfo
  5. If %generate
  6.    Shell "!Generate %packet !WC3TC3.TEM"
  7. EndIf
  8. CloseBox 1
  9. Exit
  10.  
  11. :GetInfo
  12. Fore YELLOW
  13. RowCol 2 2
  14. Message "QWK packet name used by BBS:"
  15. RowCol 2 40
  16. Message "Tomcat Key from Message Menu:"
  17. RowCol 4 2
  18. Message "Full name of BBS:"
  19. RowCol 4 52
  20. Message "Virtual Port:"
  21. RowCol 6 2
  22. Message "Username on this BBS:"
  23. RowCol 6 51
  24. Message "Date of Birth:"
  25. RowCol 8 2
  26. Message "Password on this BBS:"
  27. RowCol 8 53
  28. Message "Voice Phone:"
  29. RowCol 10 2
  30. Message "Telephone Number 1:"
  31. RowCol 12 2
  32. Message "Telephone Number 2:"
  33. RowCol 14 2
  34. Message "Telephone Number 3:"
  35. RowCol 16 2
  36. Message "Telephone Number 4:"
  37. RowCol 18 2
  38. Message "Seconds to wait for connection:"
  39. RowCol 18 37
  40. Message "Ask before deleting .F?L files?"
  41. RowCol 20 2
  42. Message "Gateway string:"
  43. RowCol 20 39
  44. Message "Response:"
  45. CurOff
  46. RowCol 22 2
  47. Fore White
  48. Message "Please wait..."
  49. Gosub GetCFGFile
  50. If %generate
  51.    Gosub Display
  52. EndIf
  53. RowCol 22 2
  54. CLL
  55. CurOn
  56. If %generate
  57.    Gosub GetTomKey
  58. EndIf
  59. If %generate
  60.    Gosub GetBBS
  61. EndIf
  62. If %generate
  63.    Gosub GetPort
  64. EndIf
  65. If %generate
  66.    Gosub GetUser
  67. EndIf
  68. If %generate
  69.    Gosub GetDOB
  70. EndIf
  71. If %generate
  72.    Gosub GetPword
  73. EndIf
  74. If %generate
  75.    Gosub GetPhone
  76. EndIf
  77. If %generate
  78.    Gosub GetNumbers
  79. EndIf
  80. If %generate
  81.    Gosub GetWaitTime
  82. EndIf
  83. If %generate
  84.    Gosub GetConfirm
  85. EndIf
  86. If %generate
  87.    Gosub GetGateway
  88. EndIf
  89. If %generate & %getresp
  90.    Gosub GetResponse
  91. EndIf
  92. If %generate
  93.    Gosub PutCFGFile
  94. EndIf
  95. If %generate
  96.    RowCol 22 2
  97.    Fore Yellow
  98.    Message "Continue with script generation? (Y/N) "
  99.    Fore White
  100.    %a := "z"
  101.    While $eq(%a,"z")
  102.       CurOn
  103.       GetKey %a %b
  104.       CurOff
  105.       $caps %a
  106.       If $eq(%a,"N")
  107.          %generate := FALSE
  108.       ElsIf $eq(%a,"Y")
  109.          %generate := TRUE
  110.       Else
  111.          %a := "z"
  112.       EndIf
  113.    EndWhile
  114.    Message %a
  115. EndIf
  116. Return
  117.  
  118. :Display
  119. RowCol 2 31
  120. Message "%packet"
  121. RowCol 2 70
  122. Message "%tomkey"
  123. RowCol 4 20
  124. Message "%bbs"
  125. RowCol 4 66
  126. Message %vport
  127. RowCol 6 24
  128. Message "%name"
  129. RowCol 6 66
  130. Message "%dob"
  131. RowCol 8 24
  132. Message "%pword"
  133. RowCol 8 66
  134. Message "%phone"
  135. RowCol 10 22
  136. Message "%numbera"
  137. RowCol 12 22
  138. Message "%numberb"
  139. RowCol 14 22
  140. Message "%numberc"
  141. RowCol 16 22
  142. Message "%numberd"
  143. RowCol 18 34
  144. Message "%waittime"
  145. RowCol 18 69
  146. Message "%confirm"
  147. RowCol 20 18
  148. Message %gateway
  149. RowCol 20 49
  150. Message |%response
  151. Return
  152.  
  153. :GetTomKey
  154. RowCol 2 70
  155. %buffer := "%tomkey"
  156. Input %buffer 1 1 %buffer
  157. $caps %buffer
  158. %generate := $len(%buffer) # 0
  159. If %generate
  160.    %tomkey := "%buffer"
  161. EndIf
  162. Return
  163.  
  164. :GetBBS
  165. RowCol 4 20
  166. %buffer := "%bbs"
  167. Input %buffer 30 30 %buffer
  168. %generate := $len(%buffer) # 0
  169. If %generate
  170.    %bbs := "%buffer"
  171. EndIf
  172. Return
  173.  
  174. :GetPort
  175. RowCol 4 66
  176. %buffer := "%vport"
  177. Input %buffer 1 1 %buffer
  178. %generate := $len(%buffer) # 0
  179. If %generate
  180.    %vport := "%buffer"
  181. EndIf
  182. Return
  183.  
  184. :GetUser
  185. RowCol 6 24
  186. %buffer := "%name"
  187. Input %buffer 25 25 %buffer
  188. %generate := $len(%buffer) # 0
  189. If %generate
  190.    %name := "%buffer"
  191. EndIf
  192. Return
  193.  
  194. :GetDOB
  195. RowCol 6 66
  196. %buffer := "%dob"
  197. Input %buffer 6 6 %buffer
  198. %generate := $len(%buffer) # 0
  199. If %generate
  200.    %dob := "%buffer"
  201. EndIf
  202. Return
  203.  
  204. :GetPword
  205. RowCol 8 24
  206. %buffer := "%pword"
  207. Input %buffer 12 12 %buffer
  208. %generate := $len(%buffer) # 0
  209. If %generate
  210.    %pword := "%buffer"
  211. EndIf
  212. Return
  213.  
  214. :GetPhone
  215. RowCol 8 66
  216. %buffer := "%phone"
  217. Input %buffer 11 25 %buffer
  218. %generate := $len(%buffer) # 0
  219. If %generate
  220.    %phone := "%buffer"
  221. EndIf
  222. Return
  223.  
  224. :GetNumbers
  225. %i := 1
  226. While %i < 5
  227.    %row := 8+(2*%i)
  228.    RowCol %row 22
  229.    Case %i
  230.      CaseOf 1
  231.         %buffer := "%numbera"
  232.      CaseOf 2
  233.         %buffer := "%numberb"
  234.      CaseOf 3
  235.         %buffer := "%numberc"
  236.      CaseOf 4
  237.         %buffer := "%numberd"
  238.    EndCase
  239.    Input %buffer 25 25 %buffer
  240.    If $len(%buffer) # 0
  241.       If $eq(%buffer[0],"*")
  242.          %buffer := ""
  243.          RowCol %row 22
  244.          Message "                         "
  245.       EndIf
  246.       Case %i
  247.         CaseOf 1
  248.            %numbera := "%buffer"
  249.         CaseOf 2
  250.            %numberb := "%buffer"
  251.         CaseOf 3
  252.            %numberc := "%buffer"
  253.         CaseOf 4
  254.            %numberd := "%buffer"
  255.       EndCase
  256.    EndIf
  257.    Inc %i
  258. EndWhile
  259. Return
  260.  
  261. :GetWaitTime
  262. RowCol 18 34
  263. %buffer := "%waittime"
  264. Input %buffer 2 2 %buffer
  265. %generate := $len(%buffer) # 0
  266. If %generate
  267.    %waittime := "%buffer"
  268. EndIf
  269. Return
  270.  
  271. :GetConfirm
  272. %buffer := "%confirm"
  273. %old := "%buffer"
  274. %ok := FALSE
  275. While not %ok
  276.    %ok := TRUE
  277.    RowCol 18 69
  278.    Input %buffer 1 1 %buffer
  279.    $caps %buffer
  280.    If $ne(%buffer,"Y") & $ne(%buffer,"N") & $ne(%buffer,"")
  281.       %ok := FALSE
  282.       %buffer := %old
  283.    EndIf
  284. EndWhile
  285. %generate := $len(%buffer) # 0
  286. If %generate
  287.    %confirm := "%buffer"
  288. EndIf
  289. RowCol 18 69
  290. Message %confirm
  291. Return
  292.  
  293. :GetGateway
  294. RowCol 20 18
  295. %buffer := "%gateway"
  296. Input %buffer 20 20 %buffer
  297. %gateway := "%buffer"
  298. %getresp := $len(%gateway) # 0
  299. If not %getresp
  300.    %response := ""
  301.    RowCol 20 18
  302.    Message "                    "
  303.    RowCol 20 49
  304.    Message "                    "
  305. EndIf
  306. Return
  307.  
  308. :GetResponse
  309. %buffer := "%response"
  310. %ok := FALSE
  311. While not %ok
  312.    RowCol 20 49
  313.    Input %buffer 20 20 %buffer
  314.    CurOn
  315.    %ok := $len(%buffer) # 0
  316. EndWhile
  317. %response := "%buffer"
  318. Return
  319.  
  320. :BadWrite
  321. Message "Error writing to file " "%ScrName^M^J^M^J "
  322. Gosub Bad
  323. Return
  324.  
  325. :Bad
  326. CurOff
  327. Message "Press any key when ready."
  328. GetKey %a %b
  329. CurOn
  330. Return
  331.  
  332. :PutCFGFile
  333. %cfg := fopen %cfgname
  334. If %Error
  335.    Message "Error re-opening file " %cfgname
  336.    %generate := FALSE
  337. Else
  338.    %cfg := fwrite T
  339.    %cfg := fnewline
  340.    %cfg := fwrite %name
  341.    %cfg := fnewline
  342.    %cfg := fwrite %pword
  343.    %cfg := fnewline
  344.    %cfg := fwrite %tomkey
  345.    %cfg := fnewline
  346.    %cfg := fwrite %dob
  347.    %cfg := fnewline
  348.    %cfg := fwrite %phone
  349.    %cfg := fnewline
  350.    %cfg := fwrite %bbs
  351.    %cfg := fnewline
  352.    %cfg := fwrite %numbera
  353.    %cfg := fnewline
  354.    %cfg := fwrite %numberb
  355.    %cfg := fnewline
  356.    %cfg := fwrite %numberc
  357.    %cfg := fnewline
  358.    %cfg := fwrite %numberd
  359.    %cfg := fnewline
  360.    %cfg := fwrite %waittime
  361.    %cfg := fnewline
  362.    %cfg := fwrite %gateway
  363.    %cfg := fnewline
  364.    %cfg := fwrite %response
  365.    %cfg := fnewline
  366.    %cfg := fwrite %vport
  367.    %cfg := fnewline
  368.    %cfg := fwrite %confirm
  369.    %cfg := fnewline
  370.    %cfg := fclose
  371. EndIf
  372. Return
  373.  
  374. :GetCFGFile
  375. %tomkey := "T"
  376. %name := ""
  377. %dob := ""
  378. %pword := ""
  379. %phone := ""
  380. %bbs := ""
  381. %numbera := ""
  382. %numberb := ""
  383. %numberc := ""
  384. %numberd := ""
  385. %waittime := "20"
  386. %gateway := ""
  387. %response := ""
  388. %vport := "%dport"
  389. %confirm := "Y"
  390. RowCol 22 2
  391. %cfgname := "%packet..CFG"
  392. %cfg := fopen %cfgname
  393. If %Error
  394.    %cfg := fcreate %cfgname
  395.    If %Error
  396.       Message "Unable to open or create file " %cfgname ". Press a key."
  397.       CurOff
  398.       GetKey %a %b
  399.       CurOn
  400.       %generate := FALSE
  401.    Else
  402.       Message "New file created - %cfgname"
  403.       %cfg := fclose
  404.    EndIf
  405. Else
  406.    %cfg := fread %name  ; dummy read to bypass the 'Type' byte
  407.    %cfg := fread %name
  408.    %cfg := fread %pword
  409.    %cfg := fread %tomkey
  410.    %cfg := fread %dob
  411.    %cfg := fread %phone
  412.    %cfg := fread %bbs
  413.    %cfg := fread %numbera
  414.    %cfg := fread %numberb
  415.    %cfg := fread %numberc
  416.    %cfg := fread %numberd
  417.    %cfg := fread %waittime
  418.    %cfg := fread %gateway
  419.    %cfg := fread %response
  420.    %cfg := fread %vport
  421.    %cfg := fread %confirm
  422.    %cfg := fclose
  423. EndIf
  424. Return
  425.